home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / APTCL3.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  5.1 KB  |  185 lines
  1. name APTCL3 Non-Multax Generator
  2.  
  3. c 00
  4. G 2
  5. p >8
  6. X ->3.>4 ""
  7. Y ->3.>4 ,
  8. Z ->3.>4 ,
  9. z >3.>4 IncFrom Z
  10. I ->3.>4 ,
  11. J ->3.>4 ,
  12. K ->3.>4 ,
  13. R ->3.>4 ,
  14. F >3.>3
  15. r >3.>4 IncFrom Z
  16. f >3.>3
  17. t >2
  18. l >2
  19. s >4
  20. M 2
  21. a >3.>4
  22. b >3.>4 ,
  23. d >2
  24. n >3.>4
  25. ) 00
  26.  
  27. ModalLetters f                        # List of letters that are modal    
  28. ModalGs                               # List of g codes that are modal    
  29.  
  30. HCode X                               # X or X U  'Horizontal char.       
  31. VCode Y                               # Y or Y V  'Vertical char.         
  32. Dcode Z                               # Depth char.                       
  33. FeedCode f                            # Feed rate char.                   
  34.  
  35. Comment PPRINT/                       # Begin End comment char.           
  36.  
  37. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  38. Coolant 8 9 7                         # On, Off & Mist m codes            
  39. DComp 41 42 40                        # Left, Right & Cancel m codes      
  40. LComp 43 49                           # On & Off codes                    
  41.  
  42. Feed G01                            # Linear move                       
  43. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  44. Work G                                # Work offset register              
  45. CtrCode I J                           # I J or R or I J K L               
  46. Helical? N
  47.  
  48. Spaces? Y                             # Y or N  'Spaces between words     
  49. Incremental? N                        # Y or N  'Inc or abs output        
  50. CtrIncremental? N                     # Y or N  'Inc or abs I & J         
  51. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  52.  
  53. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  54.  
  55. Drill 1                               # Drilling canned/manual cycle      
  56. G81 z[Depth] F[FRate] r[PointD]
  57. G01 X[H] Y[V] Z[D]
  58. end cancel
  59.  
  60. Peck 1                                # Pecking canned/manual cycle       
  61. G83 z[Depth] F[Frate] r[PointD] n[VBite]
  62. G01 X[H] Y[V] Z[D]
  63. end cancel
  64.  
  65. Tap 1                                 # Tapping canned/manual cycle       
  66. G84 z[Depth] F[Frate] r[PointD]
  67. G01 X[H] Y[V] Z[D]
  68. end cancel
  69.  
  70. Ream 1                                # Reaming canned/manual cycle       
  71. G85 z[Depth] F[FRate] r[PointD]
  72. G01 X[H] Y[V] Z[D]
  73. end cancel
  74.  
  75. Bore 1                                # Boring canned/manual cycle        
  76. G86 z[Depth] F[FRate] r[PointD]
  77. G01 X[H] Y[V] Z[D]
  78. end cancel
  79.  
  80. Back 1                                # Back boring canned/manual cycle   
  81. G87 z[Depth] F[FRate] r[PointD]
  82. G01 X[H] Y[V] Z[D]
  83. end cancel
  84.  
  85. Cancel                                # Cancel a canned/manual cycle      
  86. G80
  87. end
  88.  
  89. StartCode                             # Start of the program              
  90. p[Val1]
  91. M98
  92. End
  93.  
  94. 1stToolChange                         # First tool change                 
  95. G99 X[Val2] Y[Val3] Z[Val4]
  96. t[Tool] l[Lcomp]
  97. a[ToolDiam] b[ToolRad]
  98. s[Speed] M[Direct]
  99. M[Cool]
  100. End
  101.  
  102. Infeed                                # Enable cutter comp                
  103. G[Side] d[DComp]
  104. G01 X[H] Y[V] Z[D]
  105. end
  106.  
  107. Outfeed                               # Disable cutter comp               
  108. G40
  109. G01 X[H] Y[V] Z[D]
  110. end 
  111.  
  112. ToolChange                            # Secondary tool changes            
  113. M09
  114. G00 G01 X[H] Y[V] Z[Val4]
  115. t[Tool] l[Lcomp]
  116. a[ToolDiam] b[ToolRad]
  117. s[Speed] M[Direct]
  118. M[Cool]
  119. End
  120.  
  121. EndCode                               # End of the program                
  122. G00 G01 X[Val2] Y[Val3] Z[Val4]
  123. M09
  124. M02
  125. M99
  126. End
  127.  
  128. LineCode                              # Linear move                       
  129. f[FRate]
  130. G01 X[H] Y[V] Z[D]
  131. end
  132.  
  133. RapidCode                             # Rapid move                        
  134. G00 G01 X[H] Y[V] Z[D]
  135. end
  136.  
  137. CwCode                                # CW circular move                  
  138. c0 X[Hctr] Y[Vctr] Z[D] I0.0 J0.0 K-1.0 R[ArcRad]
  139. G01 X[H] Y[V] Z[D]
  140. end
  141.  
  142. CcwCode                               # CCW circular move                 
  143. c0 X[Hctr] Y[Vctr] Z[D] I0.0 J0.0 K1.0 R[ArcRad]
  144. G01 X[H] Y[V] Z[D]
  145. end
  146.  
  147. Ask [Val1] " Program#   : " "0000"
  148. Ask [Val2] " X-Axis home: " " 0.0"
  149. Ask [Val3] " Y-Axis home: " " 0.0"
  150. Ask [Val4] " Z-Axis home: " "10.0"
  151.  
  152. Replace "c" with "CIRCLE/"
  153. Replace "G00" with "RAPID, "
  154. Replace "G01" with "GOTO/"
  155. Replace "G99" with "FROM/"
  156. Replace "p" with "PARTNO/ "
  157. Replace "(" with "PPRINT/ "
  158. Replace "G41" with "CUTCOM/LEFT"
  159. Replace "G42" with "CUTCOM/RIGHT"
  160. Replace "G40" with "CUTCOM/OFF"
  161. Replace "d" with ", "
  162. Replace "t" with "LOADTL/"
  163. Replace "f" with "FEDRAT/IPM,"
  164. Replace "l" with ", OSETNO,"
  165. Replace "s" with "SPINDL/RPM,"
  166. Replace "M01" with "OPSTOP"
  167. Replace "M02" with "END"
  168. Replace "M03" with ", CLW"
  169. Replace "M04" with ", CCLW"
  170. Replace "M07" with "COOLNT/MIST"
  171. Replace "M08" with "COOLNT/ON"
  172. Replace "M09" with "COOLNT/OFF"
  173. Replace "M98" with "MULTAX/OFF"
  174. Replace "M99" with "FINI"
  175. Replace "G80" with "CYCLE /OFF"
  176. Replace "G81" with "CYCLE /DRILL"
  177. Replace "G83" with "CYCLE /DEEP"
  178. Replace "G84" with "CYCLE /TAP"
  179. Replace "G85" with "CYCLE /REAM"
  180. Replace "G86" with "CYCLE /BORE"
  181. Replace "n" with ", INCR, "
  182. Replace "a" with "CUTTER/"
  183. Replace " F" with ", IPM,"
  184. Replace "z" with ", FEDTO,"
  185.